Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btnSave.Click
    Dim NewRecord As Integer, ErrorFlag As Integer

    MyList.First = txtFirst.Text  ' Kopiuj dane do skadowych klas 
    MyList.Last = txtLast.Text
    MyList.Addr = txtAddr.Text
    MyList.City = txtCity.Text
    MyList.State = txtState.Text
    MyList.Zip = txtZip.Text

    NewRecord = MyList.CurrentRecordCount + 1 ' Zwikszamy licznik rekordw
    MyList.WriteRecord(NewRecord)
    If ErrorFlag = 0 Then
      MessageBox.Show("Data written to file.")
    End If

  End Sub
